home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / clar2v.z / clar2v
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCLLLLAAAARRRR2222VVVV((((3333FFFF))))                                                          CCCCLLLLAAAARRRR2222VVVV((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CLAR2V - applie a vector of complex plane rotations with real cosines
  10.      from both sides to a sequence of 2-by-2 complex Hermitian matrices,
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE CLAR2V( N, X, Y, Z, INCX, C, S, INCC )
  14.  
  15.          INTEGER        INCC, INCX, N
  16.  
  17.          REAL           C( * )
  18.  
  19.          COMPLEX        S( * ), X( * ), Y( * ), Z( * )
  20.  
  21. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  22.      CLAR2V applies a vector of complex plane rotations with real cosines from
  23.      both sides to a sequence of 2-by-2 complex Hermitian matrices, defined by
  24.      the elements of the vectors x, y and z. For i = 1,2,...,n
  25.  
  26.         (       x(i)  z(i) ) :=
  27.         ( conjg(z(i)) y(i) )
  28.  
  29.           (  c(i) conjg(s(i)) ) (       x(i)  z(i) ) ( c(i) -conjg(s(i)) )
  30.           ( -s(i)       c(i)  ) ( conjg(z(i)) y(i) ) ( s(i)        c(i)  )
  31.  
  32.  
  33. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  34.      N       (input) INTEGER
  35.              The number of plane rotations to be applied.
  36.  
  37.      X       (input/output) COMPLEX array, dimension (1+(N-1)*INCX)
  38.              The vector x; the elements of x are assumed to be real.
  39.  
  40.      Y       (input/output) COMPLEX array, dimension (1+(N-1)*INCX)
  41.              The vector y; the elements of y are assumed to be real.
  42.  
  43.      Z       (input/output) COMPLEX array, dimension (1+(N-1)*INCX)
  44.              The vector z.
  45.  
  46.      INCX    (input) INTEGER
  47.              The increment between elements of X, Y and Z. INCX > 0.
  48.  
  49.      C       (input) REAL array, dimension (1+(N-1)*INCC)
  50.              The cosines of the plane rotations.
  51.  
  52.      S       (input) COMPLEX array, dimension (1+(N-1)*INCC)
  53.              The sines of the plane rotations.
  54.  
  55.      INCC    (input) INTEGER
  56.              The increment between elements of C and S. INCC > 0.
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.